home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 51 / 051.d81 / color setup (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  55 lines
  1. 10 gosub 1000
  2. 50 rem
  3. 100 bc=0:sc=0:tc=7:rem initial border, screen, and text color codes
  4. 110 deffnup(x)=(x+1)and15
  5. 120 poke 650,128:rem all keys auto repeat
  6. 130 print "[147]"
  7. 140 poke 53280,bc:poke 53281,sc:poke 646,tc:rem set colors
  8. 150 print chr$(19) spc(14) "[195]olor [211]etup"
  9. 160 print:print spc(18) "[194]y"
  10. 170 print:print spc(15) "[206]ick [207]ld"
  11. 180 print:print
  12. 190 print " [214]alues listed below will produce this"
  13. 200 print " [195]olor combination:"
  14. 210 print
  15. 220 print "   [194]order color","[208][207][203][197] 53280,"+str$(bc)+" "
  16. 230 print "   [211]creen color","[208][207][203][197] 53281,"+str$(sc)+" "
  17. 240 print "   [212]ext color",
  18. 250 if tc<=7 then print "[195]ontrol"+str$(tc+1)+"  "
  19. 260 if tc>7 then print "[195]ommodore"+str$(tc-7)
  20. 270 print:print:print:print "   [195]ommands:"
  21. 280 print "     <1> [195]hanges border color"
  22. 290 print "     <2> [195]hanges screen color"
  23. 300 print "     <3> [195]hanges text color"
  24. 310 print:print "     <[209]> quits this program"
  25. 320 get k$:if k$="" then 320
  26. 330 if k$="1" then bc=fn up(bc)
  27. 340 if k$="2" then sc=fn up(sc)
  28. 350 if k$="3" then tc=fn up(tc)
  29. 360 if sc=tcthen340:rem skip identical screen and text color combinations
  30. 370 if k$="q"thenpoke650,0:goto 500
  31. 380 goto 140:rem update display with new colors and corresponding commands
  32. 500 open15,8,15,"r0:hello connect=hello connect":input#15,er,er$:close15
  33. 501 if er<>63 then print"[147]":end
  34. 505 load"hello connect",8
  35. 600 :
  36. 1000 poke53280, 0:poke53281, 0:print"[147]";
  37. 1001 print"[158]LOADSTARpresents"
  38. 1002 print"[172][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][187]"
  39. 1003 print"[170]                           [146][165]"
  40. 1004 print"[170]   C O[160]L[160]O[160]R   S E[160]T[160]U[160]P[160]  [146][165]"
  41. 1005 print"[170]   [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]   [146][165]"
  42. 1006 print"[188][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][190]"
  43. 1007 print"[158][160]"
  44. 1008 print"                         "
  45. 1009 print"   Written By Nick Old   "
  46. 1010 print"                         "
  47. 1011 print"[156]                           "
  48. 1012 print"      Copyright 1988       "
  49. 1013 print"                           "
  50. 1014 print"                                  "
  51. 1015 print"    Press (SPACE) to continue.    "
  52. 1016 print"                                  "
  53. 1020 geta$:ifa$<>" "then 1020
  54. 1030 return
  55.